home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / gsdbloo.exe / DEMOE007.PAS < prev    next >
Pascal/Delphi Source File  |  1992-02-25  |  3KB  |  108 lines
  1. program DemoE007;
  2. {------------------------------------------------------------------------------
  3.                           Griffin Solutions Windows
  4.                               Expanded Sample 7
  5.                                  Demo Program
  6.  
  7.        Copyright (c)  Richard F. Griffin
  8.  
  9.        10 February 1992
  10.  
  11.        102 Molded Stone Pl
  12.        Warner Robins, GA  31088
  13.  
  14.        -------------------------------------------------------------
  15.        Demonstration program of Griffin Solutions window routines
  16.  
  17.        **********  Not For Use in a TurboVision Environment  **********
  18.  
  19. -------------------------------------------------------------------------------}
  20. uses
  21.    CRT,
  22.    GS_KeyI,
  23.    GS_Winfc;
  24.  
  25. const
  26.    ColorChart : array[0..15] of string[12]
  27.                 = ('Black','Blue','Green','Cyan','Red','Magenta',
  28.                    'Brown','LightGray','DarkGray','LightBlue','LightGreen',
  29.                    'LightCyan','LightRed','LightMagenta','Yellow','White');
  30.  
  31. var
  32.    AskWin,
  33.    StatusWin,
  34.    WorkWin     : GS_Wind_Objt;
  35.    textnrml,
  36.    foregrnd,
  37.    backnrml,
  38.    texthilt,
  39.    backhilt    : byte;
  40.    x1,y1,x2,y2 : integer;
  41.  
  42. procedure ShowColors;
  43. begin
  44.    GS_Wind_GetColors(textnrml,backnrml,foregrnd,texthilt,backhilt);
  45.    GS_Wind_SetFgMode;
  46.    writeln('ForeGround Color is ',ColorChart[foregrnd]);
  47.    GS_Wind_SetIvMode;
  48.    writeln('Highlighted Text Color is ',ColorChart[texthilt]);
  49.    writeln('Highlighted BackGround Color is ',ColorChart[backhilt]);
  50.    GS_Wind_SetNmMode;
  51.    writeln('Normal Text Color is ',ColorChart[textnrml]);
  52.    writeln('Normal BackGround Color is ',ColorChart[backnrml]);
  53. end;
  54.  
  55. begin
  56.    ClrScr;
  57.  
  58.                {Initialize windows}
  59.  
  60.    WorkWin.InitWin(1,1,80,19,White,Black,Yellow,Blue,LightGray,True,
  61.                        '[ COLOR INFORMATION ]',true);
  62.    AskWin.InitWin(20,8,60,12,Yellow,Blue,Yellow,Black,LightGray,true,
  63.                   '',true);
  64.    StatusWin.InitWin(1,20,80,25,Yellow,Red,Yellow,Red,LightGray,true,'',true);
  65.  
  66.                {Open WorkWin and display parameters and colors}
  67.  
  68.    WorkWin.SetWin;
  69.    GS_Wind_GetWinSize(x1,y1,x2,y2);
  70.    GotoXY(1,1);
  71.    writeln('Window size parameters are ',x1,',',y1,',',x2,',',y2);
  72.    writeln;
  73.    ShowColors;
  74.  
  75.                {Change WorkWin Colors}
  76.  
  77.    GS_Wind_SetColors(Magenta,Cyan,Blue,Yellow,Green);
  78.    GS_Wind_SetNmMode;
  79.    writeln;
  80.    writeln('  Colors are now different');
  81.    writeln;
  82.    ShowColors;
  83.  
  84.               {Open StatusWin window after labeling}
  85.  
  86.    StatusWin.NamWin('[ Labeling the Status Box ]');
  87.    StatusWin.SetWin;
  88.  
  89.                {Open AskWin window, wait for key press, and close AskWin}
  90.  
  91.    AskWin.SetWin;
  92.    GoToXY(5,2);
  93.    write('Press any key to continue');
  94.    WaitForKey;
  95.    AskWin.RelWin;
  96.  
  97.                 {Back in StatusWin window}
  98.  
  99.    GoToXY(5,2);
  100.    write('Press any key to exit');
  101.    WaitForKey;
  102.  
  103.                 {Close windows}
  104.  
  105.    StatusWin.RelWin;
  106.    WorkWin.RelWin;
  107. end.
  108.